home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 4 / Precision Software Applications Silver Collection Volume 4 (1993).iso / stats / mathx30.exe / MATHX.ENV < prev    next >
Text File  |  1991-08-07  |  16KB  |  508 lines
  1. Z=INFO:Z=INT(Z*.0001):IF Z=>300}5
  2. | MATHX.ENV file |
  3. | Copyright 1991 by David Denker, Box 115, Isanti, Mn. 55040 |
  4. DSP nn; Sorry, This file must be used with MATHX V3.00 or greater!;:go140
  5. #5
  6. wind t1z:s=sloc:call97:mon2:i=mloc
  7. IF S=255}140:if s>0}}if s<7}3:go2
  8. #1:WOFF
  9. #2:call4:r=s
  10. #3:on(s)g{7,20,40,120,150,200}:go99
  11. #4:s=0
  12. if i>10001}}if i<10012}}s=1
  13. if i>10011}}if i<10024}}s=2
  14. IF I>10023}}IF I<10037}}s=3
  15. if i>10036}}if i<10047}}s=4
  16. IF I>10046}}IF I<10058}}s=5
  17. if i>10067}}if i<10078}}s=6
  18. ret
  19. #7:i=apli:if i=2}8
  20. EVHD H" "W" COMMANDS "H" PARAMETERS  INFORMATION  LOAD∙APL
  21.   UTILITIES ":go9
  22. #8:EVHD H" "W" COMMANDS "H" PARAMETERS  INFORMATION  LOAD∙APL
  23.   UTILITIES            MENU∙APL  "
  24. #9
  25. i=0:j=0:x=11:windd "┘      └
  26.  "!C"lear the Screen 
  27.  C"!l"ear Inst. Line
  28.  "!R"un Application
  29.  Go to "!D"OS Shell
  30.  "!S"ave Inst. Line
  31.  "!G"et saved Line
  32.  "!E"dit Application
  33. ──────────────────
  34.  "!Q"UIT MATHX . . ."xr1c1
  35. i=ewb:if i=14}}i=1:if i=4}}i=14:if i<>14}}i=4
  36. f=1:call100:if r=1}1:if r=2}99:if r=3}20:if r=5}3:if r=4}c18
  37. moff:woff:if j<>1}10:cls:go99
  38. #10:if j<>2}11:clrl:go99
  39. #11:if j<>3}12:@:go99
  40. #12:if j<>4}13:dos:go99
  41. #13:if j<>5}14:save:go99
  42. #14:if j<>6}15:get:go99
  43. #15:if j=x-2}140
  44. if j<>7}16:edit:go99
  45. #16:if j=x-2}140:go99
  46. #18:j=data k{0,0,1,4,7,0,6,0,0,0,0,2,0,0,0,0,9,3,5,0,0,0,0,0,0,0}:ret
  47. #19:EVHD H"  COMMANDS "W" PARAMETERS "H" INFORMATION  LOAD∙APL 
  48.  UTILITIES            MENU∙APL  ":go21
  49. #20:z=0:a=info:a=int((a-int(a/1000)*1000)/100):i=apli:if i=2}19
  50. EVHD H"  COMMANDS "W" PARAMETERS "H" INFORMATION  LOAD∙APL 
  51.  UTILITIES "
  52. #21
  53. x=15+a+a:windd wr(x)wc31r1c11"┘        └
  54. "nnnnnnnnnnnnnnnn
  55. i=0:j=0
  56. #22
  57. p=parmp
  58. if p=0}}wdsp L1; ;!P;rinter Disabled            ;
  59. if p=1}}wdsp L1; ;!P;RINTER Enabled             ;
  60. p=parmg
  61. if p=0}}wdsp L2; DEGREE Angular ;!M;ode         ;
  62. if p=1}}wdsp L2; RADIAN Angular ;!M;ode         ;
  63. if p=2}}wdsp L2; GRADS  Angular ;!M;ode         ;
  64. p=parmc
  65. if p=1}}wdsp L3" Complement Negative "!H"EX     "
  66. if p=0}}wdsp L3" Display Negative "!H"EX        "
  67. p=parma
  68. if p=0}}wdsp L4" "!A"nswer using COMMAs         "
  69. IF p=1}}wdsp L4" "!A"nswer using No Commas      "
  70. p=parmr
  71. if p=0}}wdsp L5; ROUND ;!O;FF Answer            ;
  72. if p=1}}wdsp L5; No Rounding ;!O;ff of Answer   ;
  73. p=parme
  74. if p=1}}wdsp L6; Scientific ;!N;otation uses E  ;
  75. if p=0}}wdsp L6; Scientific ;!N;otation uses [] ;
  76. p=parmx
  77. if p=0}}wdsp L7; No ;!S;cientific Notation      ;
  78. if p=1}}wdsp L7; ;!S;CIENTIFIC NOTATION Enabled ;
  79. p=parmdl
  80. wdsp L8; DIGITS ;!L;EFT  of "." =;u2.0(p);  ;
  81. p=parmdr
  82. wdsp L9; DIGITS ;!R;IGHT of "." =;u2.0(p);  ;
  83. p=parmdq
  84. wdsp L10; ;!E;REQ statement      =;u2.0(p);  ;
  85. p=parmq
  86. if p=1}}wdsp L11; ;!Q;UIET Mode                  ;
  87. if p=0}}wdsp L11; ;!Q;uiet Mode Disabled         ;
  88. p=parmi
  89. if p=1}}wdsp L12; INSERT L;!i;ne Edit mode       ;
  90. if p=0}}wdsp L12; OVERTYPE L;!i;ne Edit mode     ;
  91. if a=0}23
  92. p=parmb
  93. if p=1}}wdsp L13; ;!B;LINKING Enabled            ;
  94. if p=0}}wdsp L13; ;!B;linking Disabled           ;
  95. wdsp L14; ;!C;hange COLOR Setup . . .     ;
  96. #23
  97. WDSP L(13+a+a); ;!D;ONE  (save?)                ;
  98. f=1:call100:if r>0}}if r<4}84:if r=5}84:if r=4}c37
  99. IF R=4}}WLCC L(J)
  100. if j=12+a+a}}if a=1}60:if j=13+a+a}84
  101. if j<>1}25:p=parmp:if p=0}}pon:if p=1}}poff:z=1:go22
  102. #25:if j<>2}26:p=parmg:if p=0}}radm:if p=1}}grad:if p=2}}degm:z=1:go22
  103. #26:if j<>3}27:p=parmc:if p=0}}con:if p=1}}coff:z=1:go22
  104. #27:if j<>4}28:p=parma:if p=0}}aoff:if p=1}}aon:z=1:go22
  105. #28:if j<>5}29:p=parmr:if p=0}}roff:if p=1}}ron:z=1:go22
  106. #29:if j<>6}30:p=parme:if p=0}}eon:if p=1}}eoff:z=1:go22
  107. #30:if j<>7}31:p=parmx:if p=0}}xon:if p=1}}xoff:z=1:go22
  108. #31:if j<>8}32:p=parmdl:call38:digl(p):z=1:go22
  109. #32:if j<>9}33:p=parmdr:call38:digr(p):z=1:go22
  110. #33:if j<>10}34:p=parmdq:call38:ereq(p):z=1:go22
  111. #34:if j<>11}35:p=parmq:if p=0}}qon:if p=1}}qoff:z=1:go22
  112. #35:if j<>12}36:p=parmi:if p=0}}ins:if p=1}}over:z=1:go22
  113. #36:if a=0}84:if j<>13}84:p=parmb:if p=0}}bon:if p=1}}boff:z=1:go22
  114. #37:j=data k{4,13,14,0,10,0,0,3,12,0,0,8,2,6,5,1,11,9,7,0,0,15,0,0,0,0}
  115. if a<>0}r:if j=13}}j=0:if j=14}}j=0:if j=15}}j=13:ret
  116. #38:p=data p{1,2,3,4,5,6,7,8,9,10,12,12,14,0,0}:ret
  117.  
  118. #39:EVHD H"  COMMANDS  PARAMETERS "W" INFORMATION "H" LOAD∙APL 
  119.  UTILITIES            MENU∙APL  ":go41
  120. #40:i=apli:if i=2}39
  121. EVHD H"  COMMANDS  PARAMETERS "W" INFORMATION 
  122. "H" LOAD∙APL  UTILITIES "
  123. #41:I=0:J=0:X=7:windd "┘         └
  124.  "!H"ELP . . .
  125.  List "!F"UNCTION Keys 
  126.  List "!M"EMORIES
  127.  List "!V"ARIABLES
  128.  "!A"bout MATH EXTRA"xr1c23
  129. f=1:CALL 100:IF R=1}1:IF R=2}20:IF R=3}120:if r=5}3:if r=4}c49
  130. WOFF:IF J<>1}42
  131. windd wr3wc14R1C23"┘         └
  132.   Working!  "
  133. $A="MATHX.HLP":RUN$A:GO99
  134. #42:if j<>2}43:X=APLI:IF X=0}}X=1
  135. windd wr(17+X)wc48"┘         └ FUNCTION KEY DEFINITIONS: 
  136. "nnnnnnnn" F9= INSERT Last ANSWER Displayed (Not HEX)
  137.  F10= REDO Last INSTRUCTION LINE
  138.  S-F1= Pop-down COMMANDS Menu
  139.  S-F2= Pop-down PARAMETERS Menu
  140.  S-F3= Pop-down INFORMATION Menu
  141.  S-F4= Pop-down LOAD∙APL Menu
  142.  S-F5= Pop-down UTILITIES Menu"nnn:WDSP L16
  143. IF X=2}}WDSP; S-F6= Pop-down MENU∙APL  (APPLICATION MENU);n
  144. WDSP" S-F10= Display HELP INFORMATION"
  145. wdsp L1:list:MON2
  146. I=KYIN:IF I>9999}}IF I<10079}1:if I=275}47:if I=277}48:GO99
  147. #43:IF J<>3}50
  148. getm
  149. #44
  150. windd wr16wc67"───────────┘         └ STRING MEMORIES: "nnnnnnnnnnnnnnn
  151. wdsp L1" $A="$A"
  152.  $B="$B"
  153.  $C="$C"
  154.  $D="$D"
  155.  $E="$E"
  156.  $F="$F"
  157.  $G="$G"
  158.  $H="$H"
  159.  $I="$I"
  160.  $J="$J"
  161.  $K="$K"
  162.  $L="$L"
  163.  $M="$M"
  164.       PAGE DOWN "
  165. mon2:MON2:I=KYIN:IF I>9999}}IF I<10079}1
  166. IF I=281}45:if I=275}47:if I=277}48:IF I<10000}99
  167. I=MLIN:IF I=114}45:GO99
  168. #45
  169. windd "───────────┘         └ STRING MEMORIES: "nnnnnnnnnnnnnnn
  170. wdsp L1"      PAGE UP 
  171.  $N="$N"
  172.  $O="$O"
  173.  $P="$P"
  174.  $Q="$Q"
  175.  $R="$R"
  176.  $S="$S"
  177.  $T="$T"
  178.  $U="$U"
  179.  $V="$V"
  180.  $W="$W"
  181.  $X="$X"
  182.  $Y="$Y"
  183.  $Z="$Z
  184. mon2:I=KYIN:IF I>9999}}IF I<10079}1
  185. IF I=273}44:if I=275}47:if I=277}48:IF I<10000}99
  186. I=MLIN:IF I=101}44:GO99
  187. #47:go20
  188. #48:go120
  189. #49:j=data k{5,0,0,0,0,2,0,1,0,0,0,0,3,0,0,0,0,0,0,0,0,4,0,0,0,0}:ret
  190. #50:IF J<>4}59
  191. #51
  192. windd wr16wc48"┘         └ VARIABLES: "nnnnnnnnnnnnnnn
  193. WDSP L1U^14.14" A="(A')"
  194.  B="(B')N" C="(C')N" D="(D')N" E="(E')N" F="(F')"
  195.  G="(G')N" H="(H')N" I="(I')N" J="(J')N" K="(K')N" L="(L')N" M="(M')"
  196.       PAGE DOWN "
  197. mon2:I=KYIN:IF I>9999}}IF I<10079}1
  198. IF I=281}52:if I=275}47:if I=277}48:IF I<10000}99
  199. I=MLIN:IF I=114}52:GO99
  200. #52
  201. windd wr17"┘         └ VARIABLES: "nnnnnnnnnnnnnnnn
  202. WDSP L1U^14.14"      PAGE UP 
  203.  N="(N')N" O="(O')N" P="(P')N" Q="(Q')N" R="(R')N" S="(S')N" T="(T')"
  204.  U="(U')N" V="(V')N" W="(W')N" X="(X')N" Y="(Y')N" Z="(Z')"
  205.       PAGE DOWN "
  206. mon2:I=KYIN:IF I>9999}}IF I<10079}1
  207. IF I=281}53:IF I=273}51:if I=275}47:if I=277}48:IF I<10000}99
  208. I=MLIN:IF I=115}53:IF I=101}51:GO99
  209. #53
  210. windd "┘         └ VARIABLES: "nnnnnnnnnnnnnnnn
  211. WDSP L1U^14.14"      PAGE UP 
  212.  A'="(A'')N" B'="(B'')N" C'="(C'')N" D'="(D'')N" E'="(E'')N" F'="(F'')"
  213.  G'="(G'')N" H'="(H'')N" I'="(I'')N" J'="(J'')"
  214.  K'="(K'')N" L'="(L'')N" M'="(M'')"
  215.       PAGE DOWN "
  216. mon2:I=KYIN:IF I>9999}}IF I<10079}1
  217. IF I=281}54:IF I=273}52:if I=275}47:if I=277}48:IF I<10000}99
  218. I=MLIN:IF I=115}54:IF I=101}52:GO99
  219. #54
  220. windd "┘         └ VARIABLES: "nnnnnnnnnnnnnnnn
  221. WDSP L1U^14.14"      PAGE UP 
  222.  N'="(N'')N" O'="(O'')N" P'="(P'')N" Q'="(Q'')N" R'="(R'')"
  223.  S'="(S'')N" T'="(T'')N" U'="(U'')N" V'="(V'')N" W'="(W'')"
  224.  X'="(X'')N" Y'="(Y'')N" Z'="(Z'')"
  225.       PAGE DOWN "
  226. mon2:I=KYIN:IF I>9999}}IF I<10079}1
  227. IF I=281}55:IF I=273}53:if I=275}47:if I=277}48:IF I<10000}99
  228. I=MLIN:IF I=115}55:IF I=101}53:GO99
  229. #55
  230. windd "┘         └ VARIABLES: "nnnnnnnnnnnnnnnn
  231. WDSP L1U^14.14"      PAGE UP 
  232.  A''="(A''')N" B''="(B''')N" C''="(C''')N" D''="(D''')N" E''="(E''')"
  233.  F''="(F''')N" G''="(G''')N" H''="(H''')N" I''="(I''')N" J''="(J''')"
  234.  K''="(K''')N" L''="(L''')N" M''="(M''')"
  235.       PAGE DOWN "
  236. mon2:I=KYIN:IF I>9999}}IF I<10079}1
  237. IF I=281}56:IF I=273}54:if I=275}47:if I=277}48:IF I<10000}99
  238. I=MLIN:IF I=115}56:IF I=101}54:GO99
  239. #56
  240. windd "┘         └ VARIABLES: "nnnnnnnnnnnnnnnn
  241. WDSP L1U^14.14"      PAGE UP 
  242.  N''="(N''')N" O''="(O''')N" P''="(P''')N" Q''="(Q''')N" R''="(R''')"
  243.  S''="(S''')N" T''="(T''')N" U''="(U''')N" V''="(V''')N" W''="(W''')"
  244.  X''="(X''')N" Y''="(Y''')N" Z''="(Z''')"
  245.       PAGE DOWN "
  246. mon2:I=KYIN:IF I>9999}}IF I<10079}1
  247. IF I=281}57:IF I=273}55:if I=275}47:if I=277}48:IF I<10000}99
  248. I=MLIN:IF I=115}57:IF I=101}55:GO99
  249. #57
  250. GETV
  251. windd wr17"┘         └ VARIABLES: "nnnnnnnnnnnnnnnn
  252. WDSP L1U^14.14"      PAGE UP 
  253.  A'''="(A)N" B'''="(B)N" C'''="(C)N" D'''="(D)N" E'''="(E)"
  254.  F'''="(F)N" G'''="(G)N" H'''="(H)N" I'''="(I)N" J'''="(J)"
  255.  K'''="(K)N" L'''="(L)N" M'''="(M)"
  256.       PAGE DOWN "
  257. mon2:I=KYIN:IF I>9999}}IF I<10079}1
  258. IF I=281}58:IF I=273}56:if I=275}47:if I=277}48:IF I<10000}99
  259. I=MLIN:IF I=115}58:IF I=101}56:GO99
  260. #58
  261. GETV
  262. windd wr16"┘         └ VARIABLES: "nnnnnnnnnnnnnnn
  263. WDSP L1U^14.14"      PAGE UP 
  264.  N'''="(N)N" O'''="(O)N" P'''="(P)N" Q'''="(Q)N" R'''="(R)"
  265.  S'''="(S)N" T'''="(T)N" U'''="(U)N" V'''="(V)N" W'''="(W)"
  266.  X'''="(X)N" Y'''="(Y)N" Z'''="(Z)
  267. mon2:I=KYIN:IF I>9999}}IF I<10079}1
  268. IF I=273}57:if I=275}47:if I=277}48:IF I<10000}99
  269. I=MLIN:IF I=101}57:GO99
  270. #59:IF J<>5}99
  271. windd wr9wc28"┘         └ MATH EXTRA: 
  272.  Copyright 1989,1990,1991 
  273.   By: David Denker
  274.       204 4th Ave. S.
  275.       Box 115
  276.       Isanti, Mn. 55040
  277.   Phone: 612-444-4916
  278.    (evenings & weekends)"
  279. MON2:I=KYIN:IF I>9999}}IF I<10079}1:if I=275}47:if I=277}48:GO99
  280. #60
  281. x=22:windd wr(x)wc36r1c11"┘        └─ COLOR SETUP 
  282. "nnnnnnnnnnnnnnnnnnnn
  283. i=0:j=0:K=0:U=MWBB:V=MWBF:W=EWF:Y=EWB
  284. wdsp L6B(Y)F(W); MAIN SCREEN Border Background
  285.  MAIN SCREEN Border Foreground
  286.  APPLICATION Border Background
  287.  APPLICATION Border Foreground
  288.  UTILITIES Border Background
  289.  UTILITIES Border Foreground
  290.  Main HEADER Background
  291.  Main HEADER Foreground
  292.  Main MENUs Border Background
  293.  Main MENUs Border Foreground
  294.  Main MENUs Background
  295.  Main MENUs Foreground
  296.  Main MENUs SELECTION Background
  297.  Main MENUs SELECTION Foreground
  298.  Pick Letter Foreground;
  299. #61
  300. A=MWBB:B=MWBF:C=AWBB:D=AWBF:E=EWBB:F=EWBF:G=EHB:H=EHF:L=PLC
  301. M=ELCB:N=ELCF:O=EWB:Q=EWF:P=UWBB:T=UWBF
  302. WDSP L1B0F4;┌─ DONE ─(save?)─────────────────┐
  303. │;B(A)F(B);╒═MATHX═╕;B(P)F(T);╒═UTLS═╕;B(C)F(D);╒═APL═╕;B(E)F(F);┌┘MENU└┐;B0F4;│
  304. │;B(A)F(B);╘═══════╛;B(P)F(T);╘══════╛;B(C)F(D);╘═════╛;
  305. WDSP B(E)F(F);│;B(O)F(L); T;F(Q);ext ;B(E)F(F);│;B0F4;│
  306. │;B(G)F(H); HEADER LINE ;B(M)F(N); SELECTION ;B(E)F(F);└──────┘;B0F4;│
  307. └────────────────────────────────┘;
  308. call90:if r=4}64:if r>0}}if r<=6}84
  309. #64
  310. if j>0}}if j<6}84
  311. if j<>6}65:P=MWBB:CALL79:MWBB(P):z=1:GO61
  312. #65:if j<>7}66:P=MWBF:CALL79:MWBF(P):z=1:GO61
  313. #66:if j<>8}67:P=AWBB:CALL79:AWBB(P):z=1:GO61
  314. #67:IF J<>9}68:P=AWBF:CALL79:AWBF(P):z=1:GO61
  315. #68:IF J<>10}69:P=UWBB:CALL79:UWBB(P):z=1:GO61
  316. #69:IF J<>11}70:P=UWBF:CALL79:UWBF(P):z=1:GO61
  317. #70:IF J<>12}71:P=EHB:CALL79:EHB(P):z=1:GO61
  318. #71:IF J<>13}72:P=EHF:CALL79:EHF(P):z=1:GO61
  319. #72:IF J<>14}73:P=EWBB:CALL79:EWBB(P):z=1:GO61
  320. #73:IF J<>15}74:P=EWBF:CALL79:EWBF(P):z=1:GO61
  321. #74:IF J<>16}75:P=EWB:CALL79:EWB(P):z=1:GO61
  322. #75:IF J<>17}76:P=EWF:CALL79:EWF(P):z=1:GO61
  323. #76:IF J<>18}77:P=ELCB:CALL79:ELCB(P):z=1:GO61
  324. #77:IF J<>19}78:P=ELCF:CALL79:ELCF(P):z=1:GO61
  325. #78:IF J<>20}84:P=PLC:CALL79:PLC(P):z=1:GO61
  326. #79:p=p+1:if p=16}}p=0:RET
  327. #80
  328. A=MWBB:B=MWBF:IF A<>U}82:IF B<>V}82:go86
  329. #82
  330. tone68:windd bb4bf15f0b14; NOTE: 
  331.    The MAIN SCREEN BORDER color changes will not
  332.    take effect until the next time you use MATHX. ;X
  333. a=kyin:go86
  334. #84:sc:if z=0}86
  335. wlcc l0
  336. TONE68:MENUU bb4bf15f0b14p4i; PARAMETERS 
  337.  ;!S;AVE changes to disk. 
  338.  ;!T;emporary change.;x
  339. A=MLVL:IF A=1}85:GO86
  340. #85:SAVS:GO80
  341. #86:rc:if r=1}1:if r=2}7:if r=3}40:if r=5}3:go99
  342.  
  343. #90
  344. i=mloc:if i>9999}90:wlcc L(j)
  345. #91
  346. k=kyck:if k>283}}if k<292}112:if k<>0}92
  347. I=MLOC:IF I>9999}}IF I<10079}106
  348. i=mlin:if i=0}91:if i>99}104:if i<6}91:if i=j}91
  349. j=i:go93
  350. #92:if k=13}105:if k=27}105:if j<2}}if k=280}}j=5
  351. if k=272}}if j>1}}j=j-1:if k=280}}if j<x-2}}j=j+1
  352. if k=272}}if j=5}}j=1
  353. if k=275}107:if k=277}108
  354. #93:wlcc L(j):go91
  355.  
  356. #97:a=apli:if a=2}98
  357. EVHD H"  "!C"OMMANDS  "!P"ARAMETERS  "!I"NFORMATION  "!L"OAD∙APL
  358.   "!U"TILITIES ":ret
  359. #98:EVHD H"  "!C"OMMANDS  "!P"ARAMETERS  "!I"NFORMATION  "!L"OAD∙APL
  360.   "!U"TILITIES            "!M"ENU∙APL  ":ret
  361. #99:woff:moff:call97:quit
  362.  
  363. #100:i=mloc:call4:if s<>r}}if s<>0}106
  364. i=mlin:if i<100}101:i=i-int(i/100)*100:if i=0}100:go110
  365. #101:k=kyck:if k>283}}if k<292}112:if k<>0}102
  366. I=MLOC:IF I>9999}}IF I<10079}106
  367. i=mlin:if i=0}101:if i>99}104
  368. if i>x-2}101:if i=j}101:j=i:go103
  369. #102:if k=13}105:if k=27}99
  370. if k=272}}if j>0}}j=j-1:if k=280}}if j<x-2}}j=j+1
  371. if k=275}107:if k=277}108:if f=0}103
  372. if k>64}}if k<91}}k=k+32:if k>96}}if k<123}109
  373. #103:wlcc L(j):go101
  374. #104:i=i-int(i/100)*100:j=i:I=MLOC:IF I>9999}}IF I<10079}106
  375. #105:r=0:i=mlin:if i>99}105:ret
  376. #106:r=1:ret:|top bar|
  377. #107:r=2:ret:|<--|
  378. #108:r=3:ret:|-->|
  379. #109:r=4:k=k-97:ret:|A to Z|
  380. #110:i=mlin:i=i-int(i/100)*100:if i=j}111:j=i:wlcc L(j)
  381. #111:i=mlin:if i<100}105:i=mloc
  382. call4:if s<>r}}if s<>0}106:go110
  383. #112:r=5:s=k-283:ret:|S-F1 to S-F8|
  384.  
  385. #117
  386. windd wr3wc12R1C36"┘      └
  387.  Working! ":ret
  388. #119
  389. EVHD H"  COMMANDS  PARAMETERS  INFORMATION "W" LOAD∙APL 
  390. "H" UTILITIES            MENU∙APL  ":go118
  391. #120
  392. i=apli:if i=2}119
  393. EVHD H"  COMMANDS  PARAMETERS  INFORMATION "W"
  394.  LOAD∙APL "H" UTILITIES "
  395. #118
  396. call117
  397. Z=0:$a=fdir *.apl
  398. if $a<>""}121
  399. windd wr3wc19R1C36"┘      └
  400.  NO (.APL) FILES ":x=2
  401. f=0:CALL100:IF R=1}1:IF R=2}40:IF R=3}150:if r=5}3:GO99
  402. #121
  403. C=1:I=0:J=0:l=0
  404. $B=NDIR,IF $B=""}122:C=C+1
  405. $C=NDIR,IF $C=""}122:C=C+1
  406. $D=NDIR,IF $D=""}122:C=C+1
  407. $E=NDIR,IF $E=""}122:C=C+1
  408. $F=NDIR,IF $F=""}122:C=C+1
  409. $G=NDIR,IF $G=""}122:C=C+1
  410. $H=NDIR,IF $H=""}122:C=C+1
  411. $I=NDIR,IF $I=""}122:C=C+1
  412. $J=NDIR,IF $J=""}122:C=C+1
  413. $K=NDIR,IF $K=""}122:C=C+1
  414. l=1
  415. #122
  416. windd WR(C+2)WC16R1C36"┘      └"nnnnnnnnnnnn
  417. IF Z=1}123
  418. WDSP L1" "$A:GO124
  419. #123
  420. WDSP L1" "$K
  421. #124
  422. WDSP L2" "$BN" "$CN" "$DN" "$EN" "$FN" "$GN" "$HN" "$IN" "$J"
  423.     "!M"ORE "
  424. X=C+2:f=1:CALL100:IF R=1}1:IF R=2}40:IF R=3}150:if r=5}3:if r=4}c137
  425. IF Z=0}125
  426. call117:IF J<>1}126:LOAD$K:GO99
  427. #125
  428. call117:IF J<>1}126:LOAD$A:GO99
  429. #126:IF J<>2}127:LOAD$B:GO99
  430. #127:IF J<>3}128:LOAD$C:GO99
  431. #128:IF J<>4}129:LOAD$D:GO99
  432. #129:IF J<>5}130:LOAD$E:GO99
  433. #130:IF J<>6}131:LOAD$F:GO99
  434. #131:IF J<>7}132:LOAD$G:GO99
  435. #132:IF J<>8}133:LOAD$H:GO99
  436. #133:IF J<>9}134:LOAD$I:GO99
  437. #134:IF J<>10}135:LOAD$J:GO99
  438. #135:IF J<>11}99:Z=1:GO121
  439. #137:j=0:if k=12}}if l=1}}j=11:ret
  440. #140
  441. TONE50:WLCC L2F4B2
  442. MENUU bb4bf15b13f0IM"───── EXITTING MATH EXTRA! 
  443.             "!E"XIT NOW
  444.  "!S"AVE VARIABLES & MEMORIES FIRST 
  445.           "!C"ANCEL EXIT!"X
  446. J=MLVL:IF J=1}144:IF J=2}143:GO99
  447. #143
  448. SAVV
  449. SAVM
  450. #144:EXIT:go99
  451.  
  452. #149
  453. windd wr3wc12R1C46"┘       └
  454.  Working! ":ret
  455. #150:i=apli:if i=2}152
  456. EVHD H"  COMMANDS  PARAMETERS  INFORMATION 
  457.  LOAD∙APL "W" UTILITIES "H"":GO153
  458. #152:EVHD H"  COMMANDS  PARAMETERS  INFORMATION  LOAD∙APL 
  459. "W" UTILITIES "H"           MENU∙APL  "
  460. #153:call149
  461. Z=0:$a=fdir *.UTL
  462. if $a<>""}154
  463. windd wr3wc19R1C46"┘       └
  464.  NO (.UTL) FILES ":x=2
  465. f=0:CALL100:IF R=1}1:IF R=2}120:IF R=3}200:if r=5}3:GO99
  466. #154
  467. C=1:I=0:J=0:l=0
  468. $B=NDIR,IF $B=""}155:C=C+1
  469. $C=NDIR,IF $C=""}155:C=C+1
  470. $D=NDIR,IF $D=""}155:C=C+1
  471. $E=NDIR,IF $E=""}155:C=C+1
  472. $F=NDIR,IF $F=""}155:C=C+1
  473. $G=NDIR,IF $G=""}155:C=C+1
  474. $H=NDIR,IF $H=""}155:C=C+1
  475. $I=NDIR,IF $I=""}155:C=C+1
  476. $J=NDIR,IF $J=""}155:C=C+1
  477. $K=NDIR,IF $K=""}155:C=C+1
  478. l=1
  479. #155
  480. windd WR(C+2)WC16R1C46"┘       └"nnnnnnnnnnnn
  481. IF Z=1}156
  482. WDSP L1" "$A:GO157
  483. #156
  484. WDSP L1" "$K
  485. #157
  486. WDSP L2" "$BN" "$CN" "$DN" "$EN" "$FN" "$GN" "$HN" "$IN" "$J"
  487.     "!M"ORE "
  488. X=C+2:f=1:CALL100:IF R=1}1:IF R=2}120:IF R=3}200:if r=5}3:if r=4}c137
  489. IF Z=0}158
  490. call149:IF J<>1}158:RUN$K:GO99
  491. #158
  492. call149:IF J<>1}159:RUN$A:GO99
  493. #159:IF J<>2}160:RUN$B:GO99
  494. #160:IF J<>3}161:RUN$C:GO99
  495. #161:IF J<>4}162:RUN$D:GO99
  496. #162:IF J<>5}163:RUN$E:GO99
  497. #163:IF J<>6}164:RUN$F:GO99
  498. #164:IF J<>7}165:RUN$G:GO99
  499. #165:IF J<>8}166:RUN$H:GO99
  500. #166:IF J<>9}167:RUN$I:GO99
  501. #167:IF J<>10}168:RUN$J:GO99
  502. #168:IF J<>11}99:Z=1:GO154
  503.  
  504. |application menu jumps here when <-- cursor key is hit|
  505. #199:go150
  506. |application menu|
  507. #200:i=apli:if i<>2}99
  508.